/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserUpdateServerWindow_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 76 22 63 6c 61 73 73 20 |........|v"class |
|00000010| 55 42 72 6f 77 73 65 72 | 55 70 64 61 74 65 53 65 |UBrowser|UpdateSe|
|00000020| 72 76 65 72 57 69 6e 64 | 6f 77 20 65 78 70 61 6e |rverWind|ow expan|
|00000030| 64 73 20 55 57 69 6e 64 | 6f 77 50 61 67 65 57 69 |ds UWind|owPageWi|
|00000040| 6e 64 6f 77 3b 0d 0a 0d | 0a 76 61 72 20 55 42 72 |ndow;...|.var UBr|
|00000050| 6f 77 73 65 72 55 70 64 | 61 74 65 53 65 72 76 65 |owserUpd|ateServe|
|00000060| 72 4c 69 6e 6b 20 4c 69 | 6e 6b 3b 0d 0a 76 61 72 |rLink Li|nk;..var|
|00000070| 20 55 42 72 6f 77 73 65 | 72 55 70 64 61 74 65 53 | UBrowse|rUpdateS|
|00000080| 65 72 76 65 72 54 65 78 | 74 41 72 65 61 20 54 65 |erverTex|tArea Te|
|00000090| 78 74 41 72 65 61 3b 0d | 0a 0d 0a 76 61 72 20 6c |xtArea;.|...var l|
|000000a0| 6f 63 61 6c 69 7a 65 64 | 20 73 74 72 69 6e 67 20 |ocalized| string |
|000000b0| 51 75 65 72 79 54 65 78 | 74 3b 0d 0a 76 61 72 20 |QueryTex|t;..var |
|000000c0| 6c 6f 63 61 6c 69 7a 65 | 64 20 73 74 72 69 6e 67 |localize|d string|
|000000d0| 20 46 61 69 6c 75 72 65 | 54 65 78 74 3b 0d 0a 76 | Failure|Text;..v|
|000000e0| 61 72 20 63 6c 61 73 73 | 3c 55 42 72 6f 77 73 65 |ar class|<UBrowse|
|000000f0| 72 55 70 64 61 74 65 53 | 65 72 76 65 72 4c 69 6e |rUpdateS|erverLin|
|00000100| 6b 3e 20 4c 69 6e 6b 43 | 6c 61 73 73 3b 0d 0a 76 |k> LinkC|lass;..v|
|00000110| 61 72 20 63 6c 61 73 73 | 3c 55 42 72 6f 77 73 65 |ar class|<UBrowse|
|00000120| 72 55 70 64 61 74 65 53 | 65 72 76 65 72 54 65 78 |rUpdateS|erverTex|
|00000130| 74 41 72 65 61 3e 20 54 | 65 78 74 41 72 65 61 43 |tArea> T|extAreaC|
|00000140| 6c 61 73 73 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 20 |lass;..v|ar bool |
|00000150| 62 47 6f 74 4d 4f 54 44 | 3b 0d 0a 76 61 72 20 73 |bGotMOTD|;..var s|
|00000160| 74 72 69 6e 67 20 53 74 | 61 74 75 73 42 61 72 54 |tring St|atusBarT|
|00000170| 65 78 74 3b 0d 0a 76 61 | 72 20 62 6f 6f 6c 20 62 |ext;..va|r bool b|
|00000180| 48 61 64 49 6e 69 74 69 | 61 6c 51 75 65 72 79 3b |HadIniti|alQuery;|
|00000190| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 43 72 65 |....func|tion Cre|
|000001a0| 61 74 65 64 28 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |ated()..|{...Supe|
|000001b0| 72 2e 43 72 65 61 74 65 | 64 28 29 3b 0d 0a 09 54 |r.Create|d();...T|
|000001c0| 65 78 74 41 72 65 61 20 | 3d 20 55 42 72 6f 77 73 |extArea |= UBrows|
|000001d0| 65 72 55 70 64 61 74 65 | 53 65 72 76 65 72 54 65 |erUpdate|ServerTe|
|000001e0| 78 74 41 72 65 61 28 43 | 72 65 61 74 65 43 6f 6e |xtArea(C|reateCon|
|000001f0| 74 72 6f 6c 28 54 65 78 | 74 41 72 65 61 43 6c 61 |trol(Tex|tAreaCla|
|00000200| 73 73 2c 20 30 2c 20 30 | 2c 20 57 69 6e 57 69 64 |ss, 0, 0|, WinWid|
|00000210| 74 68 2c 20 57 69 6e 48 | 65 69 67 68 74 2c 20 53 |th, WinH|eight, S|
|00000220| 65 6c 66 29 29 3b 0d 0a | 0d 0a 09 53 65 74 41 63 |elf));..|...SetAc|
|00000230| 63 65 70 74 73 46 6f 63 | 75 73 28 29 3b 0d 0a 7d |ceptsFoc|us();..}|
|00000240| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 51 75 65 |....func|tion Que|
|00000250| 72 79 28 29 0d 0a 7b 0d | 0a 09 62 48 61 64 49 6e |ry()..{.|..bHadIn|
|00000260| 69 74 69 61 6c 51 75 65 | 72 79 20 3d 20 54 72 75 |itialQue|ry = Tru|
|00000270| 65 3b 0d 0a 09 53 74 61 | 74 75 73 42 61 72 54 65 |e;...Sta|tusBarTe|
|00000280| 78 74 20 3d 20 51 75 65 | 72 79 54 65 78 74 3b 0d |xt = Que|ryText;.|
|00000290| 0a 09 69 66 28 4c 69 6e | 6b 20 21 3d 20 4e 6f 6e |..if(Lin|k != Non|
|000002a0| 65 29 0d 0a 09 7b 0d 0a | 09 09 4c 69 6e 6b 2e 55 |e)...{..|..Link.U|
|000002b0| 70 64 61 74 65 57 69 6e | 64 6f 77 20 3d 20 4e 6f |pdateWin|dow = No|
|000002c0| 6e 65 3b 0d 0a 09 09 4c | 69 6e 6b 2e 44 65 73 74 |ne;....L|ink.Dest|
|000002d0| 72 6f 79 28 29 3b 0d 0a | 09 7d 0d 0a 09 4c 69 6e |roy();..|.}...Lin|
|000002e0| 6b 20 3d 20 47 65 74 45 | 6e 74 72 79 4c 65 76 65 |k = GetE|ntryLeve|
|000002f0| 6c 28 29 2e 53 70 61 77 | 6e 28 4c 69 6e 6b 43 6c |l().Spaw|n(LinkCl|
|00000300| 61 73 73 29 3b 0d 0a 09 | 4c 69 6e 6b 2e 55 70 64 |ass);...|Link.Upd|
|00000310| 61 74 65 57 69 6e 64 6f | 77 20 3d 20 53 65 6c 66 |ateWindo|w = Self|
|00000320| 3b 0d 0a 09 4c 69 6e 6b | 2e 51 75 65 72 79 55 70 |;...Link|.QueryUp|
|00000330| 64 61 74 65 53 65 72 76 | 65 72 28 29 3b 0d 0a 09 |dateServ|er();...|
|00000340| 62 47 6f 74 4d 4f 54 44 | 20 3d 20 46 61 6c 73 65 |bGotMOTD| = False|
|00000350| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000360| 20 42 65 66 6f 72 65 50 | 61 69 6e 74 28 43 61 6e | BeforeP|aint(Can|
|00000370| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 58 2c 20 |vas C, f|loat X, |
|00000380| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 6c 6f |float Y)|..{...lo|
|00000390| 63 61 6c 20 55 42 72 6f | 77 73 65 72 4d 61 69 6e |cal UBro|wserMain|
|000003a0| 57 69 6e 64 6f 77 20 57 | 3b 0d 0a 0d 0a 09 69 66 |Window W|;.....if|
|000003b0| 28 21 62 48 61 64 49 6e | 69 74 69 61 6c 51 75 65 |(!bHadIn|itialQue|
|000003c0| 72 79 29 0d 0a 09 09 51 | 75 65 72 79 28 29 3b 0d |ry)....Q|uery();.|
|000003d0| 0a 0d 0a 09 53 75 70 65 | 72 2e 42 65 66 6f 72 65 |....Supe|r.Before|
|000003e0| 50 61 69 6e 74 28 43 2c | 20 58 2c 20 59 29 3b 0d |Paint(C,| X, Y);.|
|000003f0| 0a 09 54 65 78 74 41 72 | 65 61 2e 53 65 74 53 69 |..TextAr|ea.SetSi|
|00000400| 7a 65 28 57 69 6e 57 69 | 64 74 68 2c 20 57 69 6e |ze(WinWi|dth, Win|
|00000410| 48 65 69 67 68 74 29 3b | 0d 0a 0d 0a 09 57 20 3d |Height);|.....W =|
|00000420| 20 55 42 72 6f 77 73 65 | 72 4d 61 69 6e 57 69 6e | UBrowse|rMainWin|
|00000430| 64 6f 77 28 47 65 74 50 | 61 72 65 6e 74 28 63 6c |dow(GetP|arent(cl|
|00000440| 61 73 73 27 55 42 72 6f | 77 73 65 72 4d 61 69 6e |ass'UBro|wserMain|
|00000450| 57 69 6e 64 6f 77 27 29 | 29 3b 0d 0a 09 69 66 28 |Window')|);...if(|
|00000460| 53 74 61 74 75 73 42 61 | 72 54 65 78 74 20 3d 3d |StatusBa|rText ==|
|00000470| 20 22 22 29 0d 0a 09 09 | 57 2e 44 65 66 61 75 6c | "")....|W.Defaul|
|00000480| 74 53 74 61 74 75 73 42 | 61 72 54 65 78 74 28 54 |tStatusB|arText(T|
|00000490| 65 78 74 41 72 65 61 2e | 53 74 61 74 75 73 55 52 |extArea.|StatusUR|
|000004a0| 4c 29 3b 0d 0a 09 65 6c | 73 65 0d 0a 09 09 57 2e |L);...el|se....W.|
|000004b0| 44 65 66 61 75 6c 74 53 | 74 61 74 75 73 42 61 72 |DefaultS|tatusBar|
|000004c0| 54 65 78 74 28 53 74 61 | 74 75 73 42 61 72 54 65 |Text(Sta|tusBarTe|
|000004d0| 78 74 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |xt);..}.|...funct|
|000004e0| 69 6f 6e 20 50 61 69 6e | 74 28 43 61 6e 76 61 73 |ion Pain|t(Canvas|
|000004f0| 20 43 2c 20 66 6c 6f 61 | 74 20 58 2c 20 66 6c 6f | C, floa|t X, flo|
|00000500| 61 74 20 59 29 0d 0a 7b | 0d 0a 09 44 72 61 77 53 |at Y)..{|...DrawS|
|00000510| 74 72 65 74 63 68 65 64 | 54 65 78 74 75 72 65 28 |tretched|Texture(|
|00000520| 43 2c 20 30 2c 20 30 2c | 20 57 69 6e 57 69 64 74 |C, 0, 0,| WinWidt|
|00000530| 68 2c 20 57 69 6e 48 65 | 69 67 68 74 2c 20 54 65 |h, WinHe|ight, Te|
|00000540| 78 74 75 72 65 27 42 6c | 61 63 6b 54 65 78 74 75 |xture'Bl|ackTextu|
|00000550| 72 65 27 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |re');..}|....func|
|00000560| 74 69 6f 6e 20 53 65 74 | 4d 4f 54 44 28 73 74 72 |tion Set|MOTD(str|
|00000570| 69 6e 67 20 4d 4f 54 44 | 29 0d 0a 7b 0d 0a 09 54 |ing MOTD|)..{...T|
|00000580| 65 78 74 41 72 65 61 2e | 53 65 74 48 54 4d 4c 28 |extArea.|SetHTML(|
|00000590| 4d 4f 54 44 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |MOTD);..|}....fun|
|000005a0| 63 74 69 6f 6e 20 53 65 | 74 4d 61 73 74 65 72 53 |ction Se|tMasterS|
|000005b0| 65 72 76 65 72 28 73 74 | 72 69 6e 67 20 56 61 6c |erver(st|ring Val|
|000005c0| 75 65 29 0d 0a 7b 0d 0a | 09 52 65 70 6c 61 63 65 |ue)..{..|.Replace|
|000005d0| 54 65 78 74 28 56 61 6c | 75 65 2c 20 43 68 72 28 |Text(Val|ue, Chr(|
|000005e0| 31 30 29 2c 20 22 22 29 | 3b 0d 0a 09 69 66 28 56 |10), "")|;...if(V|
|000005f0| 61 6c 75 65 20 21 3d 20 | 22 22 29 0d 0a 09 09 55 |alue != |"")....U|
|00000600| 42 72 6f 77 73 65 72 4d | 61 69 6e 43 6c 69 65 6e |BrowserM|ainClien|
|00000610| 74 57 69 6e 64 6f 77 28 | 55 42 72 6f 77 73 65 72 |tWindow(|UBrowser|
|00000620| 4d 61 69 6e 57 69 6e 64 | 6f 77 28 47 65 74 50 61 |MainWind|ow(GetPa|
|00000630| 72 65 6e 74 28 63 6c 61 | 73 73 27 55 42 72 6f 77 |rent(cla|ss'UBrow|
|00000640| 73 65 72 4d 61 69 6e 57 | 69 6e 64 6f 77 27 29 29 |serMainW|indow'))|
|00000650| 2e 43 6c 69 65 6e 74 41 | 72 65 61 29 2e 4e 65 77 |.ClientA|rea).New|
|00000660| 4d 61 73 74 65 72 53 65 | 72 76 65 72 28 56 61 6c |MasterSe|rver(Val|
|00000670| 75 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ue);..}.|...funct|
|00000680| 69 6f 6e 20 53 65 74 49 | 52 43 53 65 72 76 65 72 |ion SetI|RCServer|
|00000690| 28 73 74 72 69 6e 67 20 | 56 61 6c 75 65 29 0d 0a |(string |Value)..|
|000006a0| 7b 0d 0a 09 53 74 72 69 | 70 43 52 4c 46 28 56 61 |{...Stri|pCRLF(Va|
|000006b0| 6c 75 65 29 3b 0d 0a 0d | 0a 09 69 66 28 56 61 6c |lue);...|..if(Val|
|000006c0| 75 65 20 21 3d 20 22 22 | 29 0d 0a 09 09 55 42 72 |ue != ""|)....UBr|
|000006d0| 6f 77 73 65 72 4d 61 69 | 6e 43 6c 69 65 6e 74 57 |owserMai|nClientW|
|000006e0| 69 6e 64 6f 77 28 55 42 | 72 6f 77 73 65 72 4d 61 |indow(UB|rowserMa|
|000006f0| 69 6e 57 69 6e 64 6f 77 | 28 47 65 74 50 61 72 65 |inWindow|(GetPare|
|00000700| 6e 74 28 63 6c 61 73 73 | 27 55 42 72 6f 77 73 65 |nt(class|'UBrowse|
|00000710| 72 4d 61 69 6e 57 69 6e | 64 6f 77 27 29 29 2e 43 |rMainWin|dow')).C|
|00000720| 6c 69 65 6e 74 41 72 65 | 61 29 2e 4e 65 77 49 52 |lientAre|a).NewIR|
|00000730| 43 53 65 72 76 65 72 28 | 56 61 6c 75 65 29 3b 0d |CServer(|Value);.|
|00000740| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 46 |.}....fu|nction F|
|00000750| 61 69 6c 75 72 65 28 29 | 0d 0a 7b 0d 0a 09 53 74 |ailure()|..{...St|
|00000760| 61 74 75 73 42 61 72 54 | 65 78 74 20 3d 20 46 61 |atusBarT|ext = Fa|
|00000770| 69 6c 75 72 65 54 65 78 | 74 3b 0d 0a 0d 0a 09 4c |ilureTex|t;.....L|
|00000780| 69 6e 6b 2e 55 70 64 61 | 74 65 57 69 6e 64 6f 77 |ink.Upda|teWindow|
|00000790| 20 3d 20 4e 6f 6e 65 3b | 0d 0a 09 4c 69 6e 6b 2e | = None;|...Link.|
|000007a0| 44 65 73 74 72 6f 79 28 | 29 3b 0d 0a 09 4c 69 6e |Destroy(|);...Lin|
|000007b0| 6b 20 3d 20 4e 6f 6e 65 | 3b 0d 0a 7d 0d 0a 0d 0a |k = None|;..}....|
|000007c0| 66 75 6e 63 74 69 6f 6e | 20 53 75 63 63 65 73 73 |function| Success|
|000007d0| 28 29 0d 0a 7b 0d 0a 09 | 53 74 61 74 75 73 42 61 |()..{...|StatusBa|
|000007e0| 72 54 65 78 74 20 3d 20 | 22 22 3b 0d 0a 0d 0a 09 |rText = |"";.....|
|000007f0| 4c 69 6e 6b 2e 55 70 64 | 61 74 65 57 69 6e 64 6f |Link.Upd|ateWindo|
|00000800| 77 20 3d 20 4e 6f 6e 65 | 3b 0d 0a 09 4c 69 6e 6b |w = None|;...Link|
|00000810| 2e 44 65 73 74 72 6f 79 | 28 29 3b 0d 0a 09 4c 69 |.Destroy|();...Li|
|00000820| 6e 6b 20 3d 20 4e 6f 6e | 65 3b 0d 0a 7d 0d 0a 0d |nk = Non|e;..}...|
|00000830| 0a 66 75 6e 63 74 69 6f | 6e 20 4b 65 79 44 6f 77 |.functio|n KeyDow|
|00000840| 6e 28 69 6e 74 20 4b 65 | 79 2c 20 66 6c 6f 61 74 |n(int Ke|y, float|
|00000850| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 20 0d 0a 7b | X, floa|t Y) ..{|
|00000860| 0d 0a 09 73 77 69 74 63 | 68 28 4b 65 79 29 0d 0a |...switc|h(Key)..|
|00000870| 09 7b 0d 0a 09 63 61 73 | 65 20 30 78 37 34 3a 20 |.{...cas|e 0x74: |
|00000880| 2f 2f 20 49 4b 5f 46 35 | 3b 0d 0a 09 09 54 65 78 |// IK_F5|;....Tex|
|00000890| 74 41 72 65 61 2e 43 6c | 65 61 72 28 29 3b 0d 0a |tArea.Cl|ear();..|
|000008a0| 09 09 51 75 65 72 79 28 | 29 3b 0d 0a 09 09 62 72 |..Query(|);....br|
|000008b0| 65 61 6b 3b 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 00 |eak;...}|..}.....|
+--------+-------------------------+-------------------------+--------+--------+